home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / graphics / 3dvect37.zip / TANK.INC < prev    next >
Text File  |  1994-06-22  |  6KB  |  182 lines
  1.            bc equ 1  ; body colour
  2.            tc equ 2  ; tank colour
  3.  
  4. turret     dd -1
  5.            dd offset hturret - offset $ - 4
  6.  
  7. hturret    dw 35
  8.            dw 16  ; set to 16 to remove bottom, 17 if present
  9.  
  10.            dw 25 dup (?)
  11.  
  12.             ;   x   y   z
  13.            dw  24*5,  0*5,-40 *5 ;1 ; turret base
  14.            dw  46*5,  0*5,  0 *5 ;2
  15.            dw  30*5,-20*5,  0 *5 ;3
  16.            dw  16*5,-20*5,-30 *5 ;4
  17.            dw -28*5,-20*5,-30 *5 ;5
  18.            dw -12*5,  0*5,-40 *5 ;6
  19.            dw  24*5,  0*5, 40 *5 ;7
  20.            dw  16*5,-20*5, 30 *5 ;8
  21.            dw -12*5,  0*5, 40 *5 ;9
  22.            dw -28*5,-20*5, 30 *5 ;10
  23.  
  24.            dw -12*5,  0*5,-50 *5 ;11; turret
  25.            dw -12*5,  0*5, 60 *5 ;12
  26.            dw -28*5,-20*5,-50 *5 ;13
  27.            dw -28*5,-20*5, 60 *5 ;14
  28.            dw -48*5,-20*5,-50 *5 ;15
  29.            dw -48*5,-20*5, 60 *5 ;16
  30.            dw -64*5,  0*5,-50 *5 ;17
  31.            dw -64*5,  0*5, 60 *5 ;18
  32.  
  33.            dw  10*5,  0*5,-50 *5 ;19; box at back of turret
  34.            dw   0*5,-20*5,-50 *5 ;20
  35.            dw   0*5,-20*5,-80 *5 ;21
  36.            dw  10*5,  0*5,-96 *5 ;22
  37.            dw -74*5,-20*5,-50 *5 ;23
  38.            dw -82*5,  0*5,-50 *5 ;24
  39.            dw -82*5,  0*5,-96 *5 ;25
  40.            dw -74*5,-20*5,-80 *5 ;26
  41.  
  42.            dw -20*5,  0*5, 60 *5 ;27; main gun
  43.            dw -32*5,-12*5, 60 *5 ;28
  44.            dw -44*5,-12*5, 60 *5 ;29
  45.            dw -56*5,  0*5, 60 *5 ;30
  46.            dw -20*5,  0*5,210 *5 ;31
  47.            dw -32*5,-12*5,210 *5 ;32
  48.            dw -44*5,-12*5,210 *5 ;33
  49.            dw -56*5,  0*5,210 *5 ;34
  50.  
  51.            dw -28*5,-100*5,-50*5 ;35; antenna
  52.  
  53.            ;turret base
  54.            dw 0,shade,0,16*bc,0 ,1,2,3,4,1      ,?,?,?
  55.            dw 0,shade,0,16*bc,0 ,6,1,4,5,6      ,?,?,?
  56.            dw 0,shade,0,16*bc,0 ,2,7,8,3,2      ,?,?,?
  57.            dw 0,shade,0,16*bc,0 ,7,9,10,8,7     ,?,?,?
  58.  
  59.            ;turret
  60.            dw 0,shade,0,16*bc,0 ,10,9,12,14,10  ,?,?,?
  61.            dw 0,shade,0,16*bc,0 ,11,6,5,13,11   ,?,?,?
  62.            dw 0,shade,0,16*bc,0 ,15,16,18,17,15 ,?,?,?
  63.            dw 0,shade,0,16*bc,0 ,31,32,28,27,31 ,?,?,?
  64.            dw 0,shade,0,16*bc,0 ,33,34,30,29,33 ,?,?,?
  65.  
  66.            dw iterate,shade,0,16*bc,0 ,20,19,11,13,20 ,?,?,?
  67.  
  68.                  dw 0,2
  69.                  dw 25 dup (0)
  70.  
  71.                  dw both,last,0,16*bc,0    ,17,24,23,15,17
  72.                  dw iterate,last,0,16*bc,0 ,27,28,14,12,27
  73.  
  74.                        dw 0,3
  75.                        dw 25 dup (0)
  76.  
  77.                        dw both,last,0,16*bc,0 ,28,29,16,14,28
  78.                        dw both,last,0,16*bc,0 ,29,30,18,16,29
  79.                        dw 0   ,last,0,16*bc,0 ,34,33,32,31,34
  80.  
  81.            dw iterate,shade,0,16*bc,0 ,32,33,29,28,32 ,?,?,?
  82.  
  83.                 dw 0,1
  84.                 dw 25 dup (0)
  85.  
  86.                 dw iterate,last,0,16*bc,0 ,13,14,16,15,13
  87.  
  88.                      dw 0,2
  89.                      dw 25 dup (0)
  90.  
  91.                      dw both,last,0,16*bc,0 ,3,8,10,5,4,3
  92.                      dw both,last,0,16*bc,0 ,21,20,23,26,21
  93.  
  94.            ;box at back of turret
  95.            dw 0,shade,0,16*bc,0 ,19,20,21,22,19 ,?,?,?
  96.            dw 0,shade,0,16*bc,0 ,22,21,26,25,22 ,?,?,?
  97.            dw 0,shade,0,16*bc,0 ,25,26,23,24,25 ,?,?,?
  98.  
  99.            dw 0,0,0,16*bc+8,0 ,35,13,35
  100.  
  101.            ;bottom of turret
  102.            dw iterate,shade,0,16*bc,0 ,1,6,9,7,2,1    ,?,?,?
  103.  
  104.                dw 0
  105.                dw 3
  106.  
  107.                dw 25 dup (0)
  108.  
  109.                dw both,last,0,16*bc,0 ,11,17,18,12,11
  110.                dw both,last,0,16*bc,0 ,19,22,25,24,19
  111.                dw both,last,0,16*bc,0 ,27,30,34,31,27
  112.  
  113. ; side treads of tank, a=front, bcdefg like so:
  114. ;
  115. ;   c__________b
  116. ; d /           -_a     so how do YOU draw a
  117. ;  |           _-         tank in ascii?
  118. ; e \_________-
  119. ;   f         g
  120. ;
  121. ;  < 140 -22  0 >  a      y offset is +34. therefore, tank body location is
  122. ;  <  79 -32 11 >  b      the same as turret location with 34 added  to  y.
  123. ;  < -49 -32 11 >  c      do not change data to pre-add and remove y add as
  124. ;  < -78 -22  0 >  d      this will affect the ability to sort the tank and
  125. ;  < -78   0  0 >  e      turret and draw the turret first (if looking from
  126. ;  < -41  32 11 >  f      top)
  127. ;  <  73  32 11 >  g
  128. ;
  129. ;  < 110 -14 49 > m
  130. ; ±m are points at front of tank
  131.  
  132.            align 16
  133.  
  134. ltank:
  135. htank      dw 16
  136.            dw 18
  137.  
  138.            dw 25 dup (?)
  139.  
  140.            dw   50,-15, 190; 1a ; tread, right side
  141.            dw   60,-32, 100; 2b
  142.            dw   60,-32, -55; 3c
  143.            dw   50,-15, -88; 4d
  144.            dw   50,  6, -88; 5e
  145.            dw   60, 31, -52; 6f
  146.            dw   60, 31,  80; 7g
  147.  
  148.            dw -100,-15, 190; 8a ; tread, left side
  149.            dw -110,-32, 100; 9b
  150.            dw -110,-32, -55;10c
  151.            dw -100,-15, -88;11d
  152.            dw -100,  6, -88;12e
  153.            dw -110, 31, -52;13f
  154.            dw -110, 31,  80;14g
  155.  
  156.            dw    0,-12, 148;15mr
  157.            dw  -59,-12, 148;16ml
  158.  
  159.            dw 1,16*tc+7,?,?,1,2,7,1  ; tread, left side
  160.            dw 1,16*tc+2,?,?,2,3,6,7,2
  161.            dw 1,16*tc+12,?,?,6,3,4,5,6
  162.  
  163.            dw 1,16*tc+3,?,?,8,14,9,8       ; tread, right side
  164.            dw 1,16*tc+12,?,?,9,14,13,10,9
  165.            dw 1,16*tc+7,?,?,13,12,11,10,13
  166.  
  167.            dw 128,16*bc,?,?,2,9,10,3,2    ,?,?,? ; body
  168.            dw 128,16*bc,?,?,15,16,9,2,15  ,?,?,?
  169.            dw 128,16*bc,?,?,1,15,2,1      ,?,?,?
  170.            dw 128,16*bc,?,?,8,9,16,8      ,?,?,?
  171.            dw 128,16*bc,?,?,3,10,11,4,3   ,?,?,?
  172.            dw 128,16*bc,?,?,11,12,5,4,11  ,?,?,?
  173.            dw 128,16*bc,?,?,12,13,6,5,12  ,?,?,?
  174.  
  175.            dw 128 ,16*bc,?,?,15,1,7,15    ,?,?,? ; bottom forks
  176.            dw 4096,16*bc,?,?,15,7,6,15
  177.            dw 128 ,16*bc,?,?,16,14,8,16   ,?,?,?
  178.            dw 4096,16*bc,?,?,14,16,13,14
  179.  
  180.            dw 128,16*bc,?,?,15,6,13,16,15 ,?,?,? ; bottom
  181.  
  182.